This source code may be used for any non-commercial purpose as long as I get a mention in the about box and documentation of any derivative program. It may not be used in commercial programs without my permission. Shareware programs are counted as non-commercial.
The code was written in THINK Pascal v4.0.1. The code is very sparsely
commented, but should be fairly understandable. All pascal units with names like MySomething.unit are from my personal library or reusuable modules, and should be fairly easy to incorporate into any other program.
This is some example code to demonstrate the use of MyFMenus.unit. This unit implements FMenus in a similar way to the Finder, which allows decoupling of the menu position from the code that executes the menu's command. The example program is not a full shell, it simply implements the Menus, and each menu selection prints a message to the console window. It should be fairly easy to understand. I've used this code in several programs, and it works quite nicely, avoiding the need to keep changing constants in the code every time you add a menu item.
BTW, in case you are wondering why I put 'My' at the front of all my library units, it isn't that I'm overly possesive, its just that I used to have names like Types, and they started clashing with Apple's units, so I figured I'd name them all consistently and avoid the problem in the future...
This code is provided AS IS. It's free, and you get what you pay for. I don't guarentee any support in any way shape of form. If there is anything wrong, fix it and tell me about it.
Send postcards, comments, bug reports, wishes, questions to:
